/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Prog / B-C / B-YACC.sit / berkeley-yacc-mpw / closure.c

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 63 6c 6f 73 75 72 | 65 2e 63 00 00 00 00 00 |..closur|e.c.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 18 e5 00 | 00 01 ac a5 20 07 c1 a5 |........|.... ...|
|00000060| 20 07 c1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 | .......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 04 93 00 00 |........|........|
|00000080| 2f 2a 0d 20 2a 20 43 6f | 70 79 72 69 67 68 74 20 |/*. * Co|pyright |
|00000090| 28 63 29 20 31 39 38 39 | 20 54 68 65 20 52 65 67 |(c) 1989| The Reg|
|000000a0| 65 6e 74 73 20 6f 66 20 | 74 68 65 20 55 6e 69 76 |ents of |the Univ|
|000000b0| 65 72 73 69 74 79 20 6f | 66 20 43 61 6c 69 66 6f |ersity o|f Califo|
|000000c0| 72 6e 69 61 2e 0d 20 2a | 20 41 6c 6c 20 72 69 67 |rnia.. *| All rig|
|000000d0| 68 74 73 20 72 65 73 65 | 72 76 65 64 2e 0d 20 2a |hts rese|rved.. *|
|000000e0| 0d 20 2a 20 54 68 69 73 | 20 63 6f 64 65 20 69 73 |. * This| code is|
|000000f0| 20 64 65 72 69 76 65 64 | 20 66 72 6f 6d 20 73 6f | derived| from so|
|00000100| 66 74 77 61 72 65 20 63 | 6f 6e 74 72 69 62 75 74 |ftware c|ontribut|
|00000110| 65 64 20 74 6f 20 42 65 | 72 6b 65 6c 65 79 20 62 |ed to Be|rkeley b|
|00000120| 79 0d 20 2a 20 52 6f 62 | 65 72 74 20 50 61 75 6c |y. * Rob|ert Paul|
|00000130| 20 43 6f 72 62 65 74 74 | 2e 0d 20 2a 0d 20 2a 20 | Corbett|.. *. * |
|00000140| 52 65 64 69 73 74 72 69 | 62 75 74 69 6f 6e 20 61 |Redistri|bution a|
|00000150| 6e 64 20 75 73 65 20 69 | 6e 20 73 6f 75 72 63 65 |nd use i|n source|
|00000160| 20 61 6e 64 20 62 69 6e | 61 72 79 20 66 6f 72 6d | and bin|ary form|
|00000170| 73 2c 20 77 69 74 68 20 | 6f 72 20 77 69 74 68 6f |s, with |or witho|
|00000180| 75 74 0d 20 2a 20 6d 6f | 64 69 66 69 63 61 74 69 |ut. * mo|dificati|
|00000190| 6f 6e 2c 20 61 72 65 20 | 70 65 72 6d 69 74 74 65 |on, are |permitte|
|000001a0| 64 20 70 72 6f 76 69 64 | 65 64 20 74 68 61 74 20 |d provid|ed that |
|000001b0| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 63 6f |the foll|owing co|
|000001c0| 6e 64 69 74 69 6f 6e 73 | 0d 20 2a 20 61 72 65 20 |nditions|. * are |
|000001d0| 6d 65 74 3a 0d 20 2a 20 | 31 2e 20 52 65 64 69 73 |met:. * |1. Redis|
|000001e0| 74 72 69 62 75 74 69 6f | 6e 73 20 6f 66 20 73 6f |tributio|ns of so|
|000001f0| 75 72 63 65 20 63 6f 64 | 65 20 6d 75 73 74 20 72 |urce cod|e must r|
|00000200| 65 74 61 69 6e 20 74 68 | 65 20 61 62 6f 76 65 20 |etain th|e above |
|00000210| 63 6f 70 79 72 69 67 68 | 74 0d 20 2a 20 20 20 20 |copyrigh|t. *    |
|00000220| 6e 6f 74 69 63 65 2c 20 | 74 68 69 73 20 6c 69 73 |notice, |this lis|
|00000230| 74 20 6f 66 20 63 6f 6e | 64 69 74 69 6f 6e 73 20 |t of con|ditions |
|00000240| 61 6e 64 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |and the |followin|
|00000250| 67 20 64 69 73 63 6c 61 | 69 6d 65 72 2e 0d 20 2a |g discla|imer.. *|
|00000260| 20 32 2e 20 52 65 64 69 | 73 74 72 69 62 75 74 69 | 2. Redi|stributi|
|00000270| 6f 6e 73 20 69 6e 20 62 | 69 6e 61 72 79 20 66 6f |ons in b|inary fo|
|00000280| 72 6d 20 6d 75 73 74 20 | 72 65 70 72 6f 64 75 63 |rm must |reproduc|
|00000290| 65 20 74 68 65 20 61 62 | 6f 76 65 20 63 6f 70 79 |e the ab|ove copy|
|000002a0| 72 69 67 68 74 0d 20 2a | 20 20 20 20 6e 6f 74 69 |right. *|    noti|
|000002b0| 63 65 2c 20 74 68 69 73 | 20 6c 69 73 74 20 6f 66 |ce, this| list of|
|000002c0| 20 63 6f 6e 64 69 74 69 | 6f 6e 73 20 61 6e 64 20 | conditi|ons and |
|000002d0| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 64 69 |the foll|owing di|
|000002e0| 73 63 6c 61 69 6d 65 72 | 20 69 6e 20 74 68 65 0d |sclaimer| in the.|
|000002f0| 20 2a 20 20 20 20 64 6f | 63 75 6d 65 6e 74 61 74 | *    do|cumentat|
|00000300| 69 6f 6e 20 61 6e 64 2f | 6f 72 20 6f 74 68 65 72 |ion and/|or other|
|00000310| 20 6d 61 74 65 72 69 61 | 6c 73 20 70 72 6f 76 69 | materia|ls provi|
|00000320| 64 65 64 20 77 69 74 68 | 20 74 68 65 20 64 69 73 |ded with| the dis|
|00000330| 74 72 69 62 75 74 69 6f | 6e 2e 0d 20 2a 20 33 2e |tributio|n.. * 3.|
|00000340| 20 41 6c 6c 20 61 64 76 | 65 72 74 69 73 69 6e 67 | All adv|ertising|
|00000350| 20 6d 61 74 65 72 69 61 | 6c 73 20 6d 65 6e 74 69 | materia|ls menti|
|00000360| 6f 6e 69 6e 67 20 66 65 | 61 74 75 72 65 73 20 6f |oning fe|atures o|
|00000370| 72 20 75 73 65 20 6f 66 | 20 74 68 69 73 20 73 6f |r use of| this so|
|00000380| 66 74 77 61 72 65 0d 20 | 2a 20 20 20 20 6d 75 73 |ftware. |*    mus|
|00000390| 74 20 64 69 73 70 6c 61 | 79 20 74 68 65 20 66 6f |t displa|y the fo|
|000003a0| 6c 6c 6f 77 69 6e 67 20 | 61 63 6b 6e 6f 77 6c 65 |llowing |acknowle|
|000003b0| 64 67 65 6d 65 6e 74 3a | 0d 20 2a 09 54 68 69 73 |dgement:|. *.This|
|000003c0| 20 70 72 6f 64 75 63 74 | 20 69 6e 63 6c 75 64 65 | product| include|
|000003d0| 73 20 73 6f 66 74 77 61 | 72 65 20 64 65 76 65 6c |s softwa|re devel|
|000003e0| 6f 70 65 64 20 62 79 20 | 74 68 65 20 55 6e 69 76 |oped by |the Univ|
|000003f0| 65 72 73 69 74 79 20 6f | 66 0d 20 2a 09 43 61 6c |ersity o|f. *.Cal|
|00000400| 69 66 6f 72 6e 69 61 2c | 20 42 65 72 6b 65 6c 65 |ifornia,| Berkele|
|00000410| 79 20 61 6e 64 20 69 74 | 73 20 63 6f 6e 74 72 69 |y and it|s contri|
|00000420| 62 75 74 6f 72 73 2e 0d | 20 2a 20 34 2e 20 4e 65 |butors..| * 4. Ne|
|00000430| 69 74 68 65 72 20 74 68 | 65 20 6e 61 6d 65 20 6f |ither th|e name o|
|00000440| 66 20 74 68 65 20 55 6e | 69 76 65 72 73 69 74 79 |f the Un|iversity|
|00000450| 20 6e 6f 72 20 74 68 65 | 20 6e 61 6d 65 73 20 6f | nor the| names o|
|00000460| 66 20 69 74 73 20 63 6f | 6e 74 72 69 62 75 74 6f |f its co|ntributo|
|00000470| 72 73 0d 20 2a 20 20 20 | 20 6d 61 79 20 62 65 20 |rs. *   | may be |
|00000480| 75 73 65 64 20 74 6f 20 | 65 6e 64 6f 72 73 65 20 |used to |endorse |
|00000490| 6f 72 20 70 72 6f 6d 6f | 74 65 20 70 72 6f 64 75 |or promo|te produ|
|000004a0| 63 74 73 20 64 65 72 69 | 76 65 64 20 66 72 6f 6d |cts deri|ved from|
|000004b0| 20 74 68 69 73 20 73 6f | 66 74 77 61 72 65 0d 20 | this so|ftware. |
|000004c0| 2a 20 20 20 20 77 69 74 | 68 6f 75 74 20 73 70 65 |*    wit|hout spe|
|000004d0| 63 69 66 69 63 20 70 72 | 69 6f 72 20 77 72 69 74 |cific pr|ior writ|
|000004e0| 74 65 6e 20 70 65 72 6d | 69 73 73 69 6f 6e 2e 0d |ten perm|ission..|
|000004f0| 20 2a 0d 20 2a 20 54 48 | 49 53 20 53 4f 46 54 57 | *. * TH|IS SOFTW|
|00000500| 41 52 45 20 49 53 20 50 | 52 4f 56 49 44 45 44 20 |ARE IS P|ROVIDED |
|00000510| 42 59 20 54 48 45 20 52 | 45 47 45 4e 54 53 20 41 |BY THE R|EGENTS A|
|00000520| 4e 44 20 43 4f 4e 54 52 | 49 42 55 54 4f 52 53 20 |ND CONTR|IBUTORS |
|00000530| 60 60 41 53 20 49 53 27 | 27 20 41 4e 44 0d 20 2a |``AS IS'|' AND. *|
|00000540| 20 41 4e 59 20 45 58 50 | 52 45 53 53 20 4f 52 20 | ANY EXP|RESS OR |
|00000550| 49 4d 50 4c 49 45 44 20 | 57 41 52 52 41 4e 54 49 |IMPLIED |WARRANTI|
|00000560| 45 53 2c 20 49 4e 43 4c | 55 44 49 4e 47 2c 20 42 |ES, INCL|UDING, B|
|00000570| 55 54 20 4e 4f 54 20 4c | 49 4d 49 54 45 44 20 54 |UT NOT L|IMITED T|
|00000580| 4f 2c 20 54 48 45 0d 20 | 2a 20 49 4d 50 4c 49 45 |O, THE. |* IMPLIE|
|00000590| 44 20 57 41 52 52 41 4e | 54 49 45 53 20 4f 46 20 |D WARRAN|TIES OF |
|000005a0| 4d 45 52 43 48 41 4e 54 | 41 42 49 4c 49 54 59 20 |MERCHANT|ABILITY |
|000005b0| 41 4e 44 20 46 49 54 4e | 45 53 53 20 46 4f 52 20 |AND FITN|ESS FOR |
|000005c0| 41 20 50 41 52 54 49 43 | 55 4c 41 52 20 50 55 52 |A PARTIC|ULAR PUR|
|000005d0| 50 4f 53 45 0d 20 2a 20 | 41 52 45 20 44 49 53 43 |POSE. * |ARE DISC|
|000005e0| 4c 41 49 4d 45 44 2e 20 | 20 49 4e 20 4e 4f 20 45 |LAIMED. | IN NO E|
|000005f0| 56 45 4e 54 20 53 48 41 | 4c 4c 20 54 48 45 20 52 |VENT SHA|LL THE R|
|00000600| 45 47 45 4e 54 53 20 4f | 52 20 43 4f 4e 54 52 49 |EGENTS O|R CONTRI|
|00000610| 42 55 54 4f 52 53 20 42 | 45 20 4c 49 41 42 4c 45 |BUTORS B|E LIABLE|
|00000620| 0d 20 2a 20 46 4f 52 20 | 41 4e 59 20 44 49 52 45 |. * FOR |ANY DIRE|
|00000630| 43 54 2c 20 49 4e 44 49 | 52 45 43 54 2c 20 49 4e |CT, INDI|RECT, IN|
|00000640| 43 49 44 45 4e 54 41 4c | 2c 20 53 50 45 43 49 41 |CIDENTAL|, SPECIA|
|00000650| 4c 2c 20 45 58 45 4d 50 | 4c 41 52 59 2c 20 4f 52 |L, EXEMP|LARY, OR|
|00000660| 20 43 4f 4e 53 45 51 55 | 45 4e 54 49 41 4c 0d 20 | CONSEQU|ENTIAL. |
|00000670| 2a 20 44 41 4d 41 47 45 | 53 20 28 49 4e 43 4c 55 |* DAMAGE|S (INCLU|
|00000680| 44 49 4e 47 2c 20 42 55 | 54 20 4e 4f 54 20 4c 49 |DING, BU|T NOT LI|
|00000690| 4d 49 54 45 44 20 54 4f | 2c 20 50 52 4f 43 55 52 |MITED TO|, PROCUR|
|000006a0| 45 4d 45 4e 54 20 4f 46 | 20 53 55 42 53 54 49 54 |EMENT OF| SUBSTIT|
|000006b0| 55 54 45 20 47 4f 4f 44 | 53 0d 20 2a 20 4f 52 20 |UTE GOOD|S. * OR |
|000006c0| 53 45 52 56 49 43 45 53 | 3b 20 4c 4f 53 53 20 4f |SERVICES|; LOSS O|
|000006d0| 46 20 55 53 45 2c 20 44 | 41 54 41 2c 20 4f 52 20 |F USE, D|ATA, OR |
|000006e0| 50 52 4f 46 49 54 53 3b | 20 4f 52 20 42 55 53 49 |PROFITS;| OR BUSI|
|000006f0| 4e 45 53 53 20 49 4e 54 | 45 52 52 55 50 54 49 4f |NESS INT|ERRUPTIO|
|00000700| 4e 29 0d 20 2a 20 48 4f | 57 45 56 45 52 20 43 41 |N). * HO|WEVER CA|
|00000710| 55 53 45 44 20 41 4e 44 | 20 4f 4e 20 41 4e 59 20 |USED AND| ON ANY |
|00000720| 54 48 45 4f 52 59 20 4f | 46 20 4c 49 41 42 49 4c |THEORY O|F LIABIL|
|00000730| 49 54 59 2c 20 57 48 45 | 54 48 45 52 20 49 4e 20 |ITY, WHE|THER IN |
|00000740| 43 4f 4e 54 52 41 43 54 | 2c 20 53 54 52 49 43 54 |CONTRACT|, STRICT|
|00000750| 0d 20 2a 20 4c 49 41 42 | 49 4c 49 54 59 2c 20 4f |. * LIAB|ILITY, O|
|00000760| 52 20 54 4f 52 54 20 28 | 49 4e 43 4c 55 44 49 4e |R TORT (|INCLUDIN|
|00000770| 47 20 4e 45 47 4c 49 47 | 45 4e 43 45 20 4f 52 20 |G NEGLIG|ENCE OR |
|00000780| 4f 54 48 45 52 57 49 53 | 45 29 20 41 52 49 53 49 |OTHERWIS|E) ARISI|
|00000790| 4e 47 20 49 4e 20 41 4e | 59 20 57 41 59 0d 20 2a |NG IN AN|Y WAY. *|
|000007a0| 20 4f 55 54 20 4f 46 20 | 54 48 45 20 55 53 45 20 | OUT OF |THE USE |
|000007b0| 4f 46 20 54 48 49 53 20 | 53 4f 46 54 57 41 52 45 |OF THIS |SOFTWARE|
|000007c0| 2c 20 45 56 45 4e 20 49 | 46 20 41 44 56 49 53 45 |, EVEN I|F ADVISE|
|000007d0| 44 20 4f 46 20 54 48 45 | 20 50 4f 53 53 49 42 49 |D OF THE| POSSIBI|
|000007e0| 4c 49 54 59 20 4f 46 0d | 20 2a 20 53 55 43 48 20 |LITY OF.| * SUCH |
|000007f0| 44 41 4d 41 47 45 2e 0d | 20 2a 2f 0d 0d 23 69 66 |DAMAGE..| */..#if|
|00000800| 6e 64 65 66 20 6c 69 6e | 74 0d 73 74 61 74 69 63 |ndef lin|t.static|
|00000810| 20 63 68 61 72 20 73 63 | 63 73 69 64 5b 5d 20 3d | char sc|csid[] =|
|00000820| 20 22 40 28 23 29 63 6c | 6f 73 75 72 65 2e 63 09 | "@(#)cl|osure.c.|
|00000830| 35 2e 32 20 28 42 65 72 | 6b 65 6c 65 79 29 20 36 |5.2 (Ber|keley) 6|
|00000840| 2f 31 2f 39 30 22 3b 0d | 23 65 6e 64 69 66 20 2f |/1/90";.|#endif /|
|00000850| 2a 20 6e 6f 74 20 6c 69 | 6e 74 20 2a 2f 0d 0d 23 |* not li|nt */..#|
|00000860| 69 6e 63 6c 75 64 65 20 | 22 64 65 66 73 2e 68 22 |include |"defs.h"|
|00000870| 0d 0d 73 68 6f 72 74 20 | 2a 69 74 65 6d 73 65 74 |..short |*itemset|
|00000880| 3b 0d 73 68 6f 72 74 20 | 2a 69 74 65 6d 73 65 74 |;.short |*itemset|
|00000890| 65 6e 64 3b 0d 75 6e 73 | 69 67 6e 65 64 20 2a 72 |end;.uns|igned *r|
|000008a0| 75 6c 65 73 65 74 3b 0d | 0d 73 74 61 74 69 63 20 |uleset;.|.static |
|000008b0| 75 6e 73 69 67 6e 65 64 | 20 2a 66 69 72 73 74 5f |unsigned| *first_|
|000008c0| 64 65 72 69 76 65 73 3b | 0d 73 74 61 74 69 63 20 |derives;|.static |
|000008d0| 75 6e 73 69 67 6e 65 64 | 20 2a 45 46 46 3b 0d 0d |unsigned| *EFF;..|
|000008e0| 0d 73 65 74 5f 45 46 46 | 28 29 0d 7b 0d 20 20 20 |.set_EFF|().{.   |
|000008f0| 20 72 65 67 69 73 74 65 | 72 20 75 6e 73 69 67 6e | registe|r unsign|
|00000900| 65 64 20 2a 72 6f 77 3b | 0d 20 20 20 20 72 65 67 |ed *row;|.    reg|
|00000910| 69 73 74 65 72 20 69 6e | 74 20 73 79 6d 62 6f 6c |ister in|t symbol|
|00000920| 3b 0d 20 20 20 20 72 65 | 67 69 73 74 65 72 20 73 |;.    re|gister s|
|00000930| 68 6f 72 74 20 2a 73 70 | 3b 0d 20 20 20 20 72 65 |hort *sp|;.    re|
|00000940| 67 69 73 74 65 72 20 69 | 6e 74 20 72 6f 77 73 69 |gister i|nt rowsi|
|00000950| 7a 65 3b 0d 20 20 20 20 | 72 65 67 69 73 74 65 72 |ze;.    |register|
|00000960| 20 69 6e 74 20 69 3b 0d | 20 20 20 20 72 65 67 69 | int i;.|    regi|
|00000970| 73 74 65 72 20 69 6e 74 | 20 72 75 6c 65 3b 0d 0d |ster int| rule;..|
|00000980| 20 20 20 20 72 6f 77 73 | 69 7a 65 20 3d 20 57 4f |    rows|ize = WO|
|00000990| 52 44 53 49 5a 45 28 6e | 76 61 72 73 29 3b 0d 20 |RDSIZE(n|vars);. |
|000009a0| 20 20 20 45 46 46 20 3d | 20 4e 45 57 32 28 6e 76 |   EFF =| NEW2(nv|
|000009b0| 61 72 73 20 2a 20 72 6f | 77 73 69 7a 65 2c 20 75 |ars * ro|wsize, u|
|000009c0| 6e 73 69 67 6e 65 64 29 | 3b 0d 0d 20 20 20 20 72 |nsigned)|;..    r|
|000009d0| 6f 77 20 3d 20 45 46 46 | 3b 0d 20 20 20 20 66 6f |ow = EFF|;.    fo|
|000009e0| 72 20 28 69 20 3d 20 73 | 74 61 72 74 5f 73 79 6d |r (i = s|tart_sym|
|000009f0| 62 6f 6c 3b 20 69 20 3c | 20 6e 73 79 6d 73 3b 20 |bol; i <| nsyms; |
|00000a00| 69 2b 2b 29 0d 20 20 20 | 20 7b 0d 09 73 70 20 3d |i++).   | {..sp =|
|00000a10| 20 64 65 72 69 76 65 73 | 5b 69 5d 3b 0d 09 66 6f | derives|[i];..fo|
|00000a20| 72 20 28 72 75 6c 65 20 | 3d 20 2a 73 70 3b 20 72 |r (rule |= *sp; r|
|00000a30| 75 6c 65 20 3e 20 30 3b | 20 72 75 6c 65 20 3d 20 |ule > 0;| rule = |
|00000a40| 2a 2b 2b 73 70 29 0d 09 | 7b 0d 09 20 20 20 20 73 |*++sp)..|{..    s|
|00000a50| 79 6d 62 6f 6c 20 3d 20 | 72 69 74 65 6d 5b 72 72 |ymbol = |ritem[rr|
|00000a60| 68 73 5b 72 75 6c 65 5d | 5d 3b 0d 09 20 20 20 20 |hs[rule]|];..    |
|00000a70| 69 66 20 28 49 53 56 41 | 52 28 73 79 6d 62 6f 6c |if (ISVA|R(symbol|
|00000a80| 29 29 0d 09 20 20 20 20 | 7b 0d 09 09 73 79 6d 62 |))..    |{...symb|
|00000a90| 6f 6c 20 2d 3d 20 73 74 | 61 72 74 5f 73 79 6d 62 |ol -= st|art_symb|
|00000aa0| 6f 6c 3b 0d 09 09 53 45 | 54 42 49 54 28 72 6f 77 |ol;...SE|TBIT(row|
|00000ab0| 2c 20 73 79 6d 62 6f 6c | 29 3b 0d 09 20 20 20 20 |, symbol|);..    |
|00000ac0| 7d 0d 09 7d 0d 09 72 6f | 77 20 2b 3d 20 72 6f 77 |}..}..ro|w += row|
|00000ad0| 73 69 7a 65 3b 0d 20 20 | 20 20 7d 0d 0d 20 20 20 |size;.  |  }..   |
|00000ae0| 20 72 65 66 6c 65 78 69 | 76 65 5f 74 72 61 6e 73 | reflexi|ve_trans|
|00000af0| 69 74 69 76 65 5f 63 6c | 6f 73 75 72 65 28 45 46 |itive_cl|osure(EF|
|00000b00| 46 2c 20 6e 76 61 72 73 | 29 3b 0d 0d 23 69 66 64 |F, nvars|);..#ifd|
|00000b10| 65 66 09 44 45 42 55 47 | 0d 20 20 20 20 70 72 69 |ef.DEBUG|.    pri|
|00000b20| 6e 74 5f 45 46 46 28 29 | 3b 0d 23 65 6e 64 69 66 |nt_EFF()|;.#endif|
|00000b30| 0d 7d 0d 0d 0d 73 65 74 | 5f 66 69 72 73 74 5f 64 |.}...set|_first_d|
|00000b40| 65 72 69 76 65 73 28 29 | 0d 7b 0d 20 20 72 65 67 |erives()|.{.  reg|
|00000b50| 69 73 74 65 72 20 75 6e | 73 69 67 6e 65 64 20 2a |ister un|signed *|
|00000b60| 72 72 6f 77 3b 0d 20 20 | 72 65 67 69 73 74 65 72 |rrow;.  |register|
|00000b70| 20 75 6e 73 69 67 6e 65 | 64 20 2a 76 72 6f 77 3b | unsigne|d *vrow;|
|00000b80| 0d 20 20 72 65 67 69 73 | 74 65 72 20 69 6e 74 20 |.  regis|ter int |
|00000b90| 6a 3b 0d 20 20 72 65 67 | 69 73 74 65 72 20 75 6e |j;.  reg|ister un|
|00000ba0| 73 69 67 6e 65 64 20 6d | 61 73 6b 3b 0d 20 20 72 |signed m|ask;.  r|
|00000bb0| 65 67 69 73 74 65 72 20 | 75 6e 73 69 67 6e 65 64 |egister |unsigned|
|00000bc0| 20 63 77 6f 72 64 3b 0d | 20 20 72 65 67 69 73 74 | cword;.|  regist|
|00000bd0| 65 72 20 73 68 6f 72 74 | 20 2a 72 70 3b 0d 0d 20 |er short| *rp;.. |
|00000be0| 20 69 6e 74 20 72 75 6c | 65 3b 0d 20 20 69 6e 74 | int rul|e;.  int|
|00000bf0| 20 69 3b 0d 20 20 69 6e | 74 20 72 75 6c 65 73 65 | i;.  in|t rulese|
|00000c00| 74 73 69 7a 65 3b 0d 20 | 20 69 6e 74 20 76 61 72 |tsize;. | int var|
|00000c10| 73 65 74 73 69 7a 65 3b | 0d 0d 20 20 72 75 6c 65 |setsize;|..  rule|
|00000c20| 73 65 74 73 69 7a 65 20 | 3d 20 57 4f 52 44 53 49 |setsize |= WORDSI|
|00000c30| 5a 45 28 6e 72 75 6c 65 | 73 29 3b 0d 20 20 76 61 |ZE(nrule|s);.  va|
|00000c40| 72 73 65 74 73 69 7a 65 | 20 3d 20 57 4f 52 44 53 |rsetsize| = WORDS|
|00000c50| 49 5a 45 28 6e 76 61 72 | 73 29 3b 0d 20 20 66 69 |IZE(nvar|s);.  fi|
|00000c60| 72 73 74 5f 64 65 72 69 | 76 65 73 20 3d 20 4e 45 |rst_deri|ves = NE|
|00000c70| 57 32 28 6e 76 61 72 73 | 20 2a 20 72 75 6c 65 73 |W2(nvars| * rules|
|00000c80| 65 74 73 69 7a 65 2c 20 | 75 6e 73 69 67 6e 65 64 |etsize, |unsigned|
|00000c90| 29 20 2d 20 6e 74 6f 6b | 65 6e 73 20 2a 20 72 75 |) - ntok|ens * ru|
|00000ca0| 6c 65 73 65 74 73 69 7a | 65 3b 0d 0d 20 20 73 65 |lesetsiz|e;..  se|
|00000cb0| 74 5f 45 46 46 28 29 3b | 0d 0d 20 20 72 72 6f 77 |t_EFF();|..  rrow|
|00000cc0| 20 3d 20 66 69 72 73 74 | 5f 64 65 72 69 76 65 73 | = first|_derives|
|00000cd0| 20 2b 20 6e 74 6f 6b 65 | 6e 73 20 2a 20 72 75 6c | + ntoke|ns * rul|
|00000ce0| 65 73 65 74 73 69 7a 65 | 3b 0d 20 20 66 6f 72 20 |esetsize|;.  for |
|00000cf0| 28 69 20 3d 20 73 74 61 | 72 74 5f 73 79 6d 62 6f |(i = sta|rt_symbo|
|00000d00| 6c 3b 20 69 20 3c 20 6e | 73 79 6d 73 3b 20 69 2b |l; i < n|syms; i+|
|00000d10| 2b 29 0d 20 20 20 20 7b | 0d 20 20 20 20 20 20 76 |+).    {|.      v|
|00000d20| 72 6f 77 20 3d 20 45 46 | 46 20 2b 20 28 28 69 20 |row = EF|F + ((i |
|00000d30| 2d 20 6e 74 6f 6b 65 6e | 73 29 20 2a 20 76 61 72 |- ntoken|s) * var|
|00000d40| 73 65 74 73 69 7a 65 29 | 3b 0d 20 20 20 20 20 20 |setsize)|;.      |
|00000d50| 63 77 6f 72 64 20 3d 20 | 2a 76 72 6f 77 2b 2b 3b |cword = |*vrow++;|
|00000d60| 0d 20 20 20 20 20 20 6d | 61 73 6b 20 3d 20 31 3b |.      m|ask = 1;|
|00000d70| 0d 20 20 20 20 20 20 66 | 6f 72 20 28 6a 20 3d 20 |.      f|or (j = |
|00000d80| 73 74 61 72 74 5f 73 79 | 6d 62 6f 6c 3b 20 6a 20 |start_sy|mbol; j |
|00000d90| 3c 20 6e 73 79 6d 73 3b | 20 6a 2b 2b 29 0d 09 7b |< nsyms;| j++)..{|
|00000da0| 0d 09 20 20 69 66 20 28 | 63 77 6f 72 64 20 26 20 |..  if (|cword & |
|00000db0| 6d 61 73 6b 29 0d 09 20 | 20 20 20 7b 0d 09 20 20 |mask).. |   {..  |
|00000dc0| 20 20 20 20 72 70 20 3d | 20 64 65 72 69 76 65 73 |    rp =| derives|
|00000dd0| 5b 6a 5d 3b 0d 09 20 20 | 20 20 20 20 77 68 69 6c |[j];..  |    whil|
|00000de0| 65 20 28 28 72 75 6c 65 | 20 3d 20 2a 72 70 2b 2b |e ((rule| = *rp++|
|00000df0| 29 20 3e 3d 20 30 29 0d | 09 09 7b 0d 09 09 20 20 |) >= 0).|..{...  |
|00000e00| 53 45 54 42 49 54 28 72 | 72 6f 77 2c 20 72 75 6c |SETBIT(r|row, rul|
|00000e10| 65 29 3b 0d 09 09 7d 0d | 09 20 20 20 20 7d 0d 0d |e);...}.|.    }..|
|00000e20| 09 20 20 6d 61 73 6b 20 | 3c 3c 3d 20 31 3b 0d 09 |.  mask |<<= 1;..|
|00000e30| 20 20 69 66 20 28 6d 61 | 73 6b 20 3d 3d 20 30 29 |  if (ma|sk == 0)|
|00000e40| 0d 09 20 20 20 20 7b 0d | 09 20 20 20 20 20 20 63 |..    {.|.      c|
|00000e50| 77 6f 72 64 20 3d 20 2a | 76 72 6f 77 2b 2b 3b 0d |word = *|vrow++;.|
|00000e60| 09 20 20 20 20 20 20 6d | 61 73 6b 20 3d 20 31 3b |.      m|ask = 1;|
|00000e70| 0d 09 20 20 20 20 7d 0d | 09 7d 0d 0d 20 20 20 20 |..    }.|.}..    |
|00000e80| 20 20 76 72 6f 77 20 2b | 3d 20 76 61 72 73 65 74 |  vrow +|= varset|
|00000e90| 73 69 7a 65 3b 0d 20 20 | 20 20 20 20 72 72 6f 77 |size;.  |    rrow|
|00000ea0| 20 2b 3d 20 72 75 6c 65 | 73 65 74 73 69 7a 65 3b | += rule|setsize;|
|00000eb0| 0d 20 20 20 20 7d 0d 0d | 23 69 66 64 65 66 09 44 |.    }..|#ifdef.D|
|00000ec0| 45 42 55 47 0d 20 20 70 | 72 69 6e 74 5f 66 69 72 |EBUG.  p|rint_fir|
|00000ed0| 73 74 5f 64 65 72 69 76 | 65 73 28 29 3b 0d 23 65 |st_deriv|es();.#e|
|00000ee0| 6e 64 69 66 0d 0d 20 20 | 46 52 45 45 28 45 46 46 |ndif..  |FREE(EFF|
|00000ef0| 29 3b 0d 7d 0d 0d 0d 63 | 6c 6f 73 75 72 65 28 6e |);.}...c|losure(n|
|00000f00| 75 63 6c 65 75 73 2c 20 | 6e 29 0d 73 68 6f 72 74 |ucleus, |n).short|
|00000f10| 20 2a 6e 75 63 6c 65 75 | 73 3b 0d 69 6e 74 20 6e | *nucleu|s;.int n|
|00000f20| 3b 0d 7b 0d 20 20 20 20 | 72 65 67 69 73 74 65 72 |;.{.    |register|
|00000f30| 20 69 6e 74 20 72 75 6c | 65 6e 6f 3b 0d 20 20 20 | int rul|eno;.   |
|00000f40| 20 72 65 67 69 73 74 65 | 72 20 75 6e 73 69 67 6e | registe|r unsign|
|00000f50| 65 64 20 77 6f 72 64 3b | 0d 20 20 20 20 72 65 67 |ed word;|.    reg|
|00000f60| 69 73 74 65 72 20 75 6e | 73 69 67 6e 65 64 20 6d |ister un|signed m|
|00000f70| 61 73 6b 3b 0d 20 20 20 | 20 72 65 67 69 73 74 65 |ask;.   | registe|
|00000f80| 72 20 73 68 6f 72 74 20 | 2a 63 73 70 3b 0d 20 20 |r short |*csp;.  |
|00000f90| 20 20 72 65 67 69 73 74 | 65 72 20 75 6e 73 69 67 |  regist|er unsig|
|00000fa0| 6e 65 64 20 2a 64 73 70 | 3b 0d 20 20 20 20 72 65 |ned *dsp|;.    re|
|00000fb0| 67 69 73 74 65 72 20 75 | 6e 73 69 67 6e 65 64 20 |gister u|nsigned |
|00000fc0| 2a 72 73 70 3b 0d 20 20 | 20 20 72 65 67 69 73 74 |*rsp;.  |  regist|
|00000fd0| 65 72 20 69 6e 74 20 72 | 75 6c 65 73 65 74 73 69 |er int r|ulesetsi|
|00000fe0| 7a 65 3b 0d 0d 20 20 20 | 20 73 68 6f 72 74 20 2a |ze;..   | short *|
|00000ff0| 63 73 65 6e 64 3b 0d 20 | 20 20 20 75 6e 73 69 67 |csend;. |   unsig|
|00001000| 6e 65 64 20 2a 72 73 65 | 6e 64 3b 0d 20 20 20 20 |ned *rse|nd;.    |
|00001010| 69 6e 74 20 73 79 6d 62 | 6f 6c 3b 0d 20 20 20 20 |int symb|ol;.    |
|00001020| 69 6e 74 20 69 74 65 6d | 6e 6f 3b 0d 0d 20 20 20 |int item|no;..   |
|00001030| 20 72 75 6c 65 73 65 74 | 73 69 7a 65 20 3d 20 57 | ruleset|size = W|
|00001040| 4f 52 44 53 49 5a 45 28 | 6e 72 75 6c 65 73 29 3b |ORDSIZE(|nrules);|
|00001050| 0d 20 20 20 20 72 73 70 | 20 3d 20 72 75 6c 65 73 |.    rsp| = rules|
|00001060| 65 74 3b 0d 20 20 20 20 | 72 73 65 6e 64 20 3d 20 |et;.    |rsend = |
|00001070| 72 75 6c 65 73 65 74 20 | 2b 20 72 75 6c 65 73 65 |ruleset |+ rulese|
|00001080| 74 73 69 7a 65 3b 0d 20 | 20 20 20 66 6f 72 20 28 |tsize;. |   for (|
|00001090| 72 73 70 20 3d 20 72 75 | 6c 65 73 65 74 3b 20 72 |rsp = ru|leset; r|
|000010a0| 73 70 20 3c 20 72 73 65 | 6e 64 3b 20 72 73 70 2b |sp < rse|nd; rsp+|
|000010b0| 2b 29 0d 09 2a 72 73 70 | 20 3d 20 30 3b 0d 0d 20 |+)..*rsp| = 0;.. |
|000010c0| 20 20 20 63 73 65 6e 64 | 20 3d 20 6e 75 63 6c 65 |   csend| = nucle|
|000010d0| 75 73 20 2b 20 6e 3b 0d | 20 20 20 20 66 6f 72 20 |us + n;.|    for |
|000010e0| 28 63 73 70 20 3d 20 6e | 75 63 6c 65 75 73 3b 20 |(csp = n|ucleus; |
|000010f0| 63 73 70 20 3c 20 63 73 | 65 6e 64 3b 20 2b 2b 63 |csp < cs|end; ++c|
|00001100| 73 70 29 0d 20 20 20 20 | 7b 0d 09 73 79 6d 62 6f |sp).    |{..symbo|
|00001110| 6c 20 3d 20 72 69 74 65 | 6d 5b 2a 63 73 70 5d 3b |l = rite|m[*csp];|
|00001120| 0d 09 69 66 20 28 49 53 | 56 41 52 28 73 79 6d 62 |..if (IS|VAR(symb|
|00001130| 6f 6c 29 29 0d 09 7b 0d | 09 20 20 20 20 64 73 70 |ol))..{.|.    dsp|
|00001140| 20 3d 20 66 69 72 73 74 | 5f 64 65 72 69 76 65 73 | = first|_derives|
|00001150| 20 2b 20 73 79 6d 62 6f | 6c 20 2a 20 72 75 6c 65 | + symbo|l * rule|
|00001160| 73 65 74 73 69 7a 65 3b | 0d 09 20 20 20 20 72 73 |setsize;|..    rs|
|00001170| 70 20 3d 20 72 75 6c 65 | 73 65 74 3b 0d 09 20 20 |p = rule|set;..  |
|00001180| 20 20 77 68 69 6c 65 20 | 28 72 73 70 20 3c 20 72 |  while |(rsp < r|
|00001190| 73 65 6e 64 29 0d 09 09 | 2a 72 73 70 2b 2b 20 7c |send)...|*rsp++ ||
|000011a0| 3d 20 2a 64 73 70 2b 2b | 3b 0d 09 7d 0d 20 20 20 |= *dsp++|;..}.   |
|000011b0| 20 7d 0d 0d 20 20 20 20 | 72 75 6c 65 6e 6f 20 3d | }..    |ruleno =|
|000011c0| 20 30 3b 0d 20 20 20 20 | 69 74 65 6d 73 65 74 65 | 0;.    |itemsete|
|000011d0| 6e 64 20 3d 20 69 74 65 | 6d 73 65 74 3b 0d 20 20 |nd = ite|mset;.  |
|000011e0| 20 20 63 73 70 20 3d 20 | 6e 75 63 6c 65 75 73 3b |  csp = |nucleus;|
|000011f0| 0d 20 20 20 20 66 6f 72 | 20 28 72 73 70 20 3d 20 |.    for| (rsp = |
|00001200| 72 75 6c 65 73 65 74 3b | 20 72 73 70 20 3c 20 72 |ruleset;| rsp < r|
|00001210| 73 65 6e 64 3b 20 2b 2b | 72 73 70 29 0d 20 20 20 |send; ++|rsp).   |
|00001220| 20 7b 0d 09 77 6f 72 64 | 20 3d 20 2a 72 73 70 3b | {..word| = *rsp;|
|00001230| 0d 09 69 66 20 28 77 6f | 72 64 20 3d 3d 20 30 29 |..if (wo|rd == 0)|
|00001240| 0d 09 20 20 20 20 72 75 | 6c 65 6e 6f 20 2b 3d 20 |..    ru|leno += |
|00001250| 42 49 54 53 5f 50 45 52 | 5f 57 4f 52 44 3b 0d 09 |BITS_PER|_WORD;..|
|00001260| 65 6c 73 65 0d 09 7b 0d | 09 20 20 20 20 6d 61 73 |else..{.|.    mas|
|00001270| 6b 20 3d 20 31 3b 0d 09 | 20 20 20 20 77 68 69 6c |k = 1;..|    whil|
|00001280| 65 20 28 6d 61 73 6b 29 | 0d 09 20 20 20 20 7b 0d |e (mask)|..    {.|
|00001290| 09 09 69 66 20 28 77 6f | 72 64 20 26 20 6d 61 73 |..if (wo|rd & mas|
|000012a0| 6b 29 0d 09 09 7b 0d 09 | 09 20 20 20 20 69 74 65 |k)...{..|.    ite|
|000012b0| 6d 6e 6f 20 3d 20 72 72 | 68 73 5b 72 75 6c 65 6e |mno = rr|hs[rulen|
|000012c0| 6f 5d 3b 0d 09 09 20 20 | 20 20 77 68 69 6c 65 20 |o];...  |  while |
|000012d0| 28 63 73 70 20 3c 20 63 | 73 65 6e 64 20 26 26 20 |(csp < c|send && |
|000012e0| 2a 63 73 70 20 3c 20 69 | 74 65 6d 6e 6f 29 0d 09 |*csp < i|temno)..|
|000012f0| 09 09 2a 69 74 65 6d 73 | 65 74 65 6e 64 2b 2b 20 |..*items|etend++ |
|00001300| 3d 20 2a 63 73 70 2b 2b | 3b 0d 09 09 20 20 20 20 |= *csp++|;...    |
|00001310| 2a 69 74 65 6d 73 65 74 | 65 6e 64 2b 2b 20 3d 20 |*itemset|end++ = |
|00001320| 69 74 65 6d 6e 6f 3b 0d | 09 09 20 20 20 20 77 68 |itemno;.|..    wh|
|00001330| 69 6c 65 20 28 63 73 70 | 20 3c 20 63 73 65 6e 64 |ile (csp| < csend|
|00001340| 20 26 26 20 2a 63 73 70 | 20 3d 3d 20 69 74 65 6d | && *csp| == item|
|00001350| 6e 6f 29 0d 09 09 09 2b | 2b 63 73 70 3b 0d 09 09 |no)....+|+csp;...|
|00001360| 7d 0d 0d 09 09 20 20 20 | 20 6d 61 73 6b 20 3c 3c |}....   | mask <<|
|00001370| 3d 20 31 3b 0d 09 09 20 | 20 20 20 2b 2b 72 75 6c |= 1;... |   ++rul|
|00001380| 65 6e 6f 3b 0d 09 20 20 | 20 20 7d 0d 09 7d 0d 20 |eno;..  |  }..}. |
|00001390| 20 20 20 7d 0d 0d 20 20 | 20 20 77 68 69 6c 65 20 |   }..  |  while |
|000013a0| 28 63 73 70 20 3c 20 63 | 73 65 6e 64 29 0d 09 2a |(csp < c|send)..*|
|000013b0| 69 74 65 6d 73 65 74 65 | 6e 64 2b 2b 20 3d 20 2a |itemsete|nd++ = *|
|000013c0| 63 73 70 2b 2b 3b 0d 0d | 23 69 66 64 65 66 09 44 |csp++;..|#ifdef.D|
|000013d0| 45 42 55 47 0d 20 20 70 | 72 69 6e 74 5f 63 6c 6f |EBUG.  p|rint_clo|
|000013e0| 73 75 72 65 28 6e 29 3b | 0d 23 65 6e 64 69 66 0d |sure(n);|.#endif.|
|000013f0| 7d 0d 0d 0d 0d 66 69 6e | 61 6c 69 7a 65 5f 63 6c |}....fin|alize_cl|
|00001400| 6f 73 75 72 65 28 29 0d | 7b 0d 20 20 46 52 45 45 |osure().|{.  FREE|
|00001410| 28 69 74 65 6d 73 65 74 | 29 3b 0d 20 20 46 52 45 |(itemset|);.  FRE|
|00001420| 45 28 72 75 6c 65 73 65 | 74 29 3b 0d 20 20 46 52 |E(rulese|t);.  FR|
|00001430| 45 45 28 66 69 72 73 74 | 5f 64 65 72 69 76 65 73 |EE(first|_derives|
|00001440| 20 2b 20 6e 74 6f 6b 65 | 6e 73 20 2a 20 57 4f 52 | + ntoke|ns * WOR|
|00001450| 44 53 49 5a 45 28 6e 72 | 75 6c 65 73 29 29 3b 0d |DSIZE(nr|ules));.|
|00001460| 7d 0d 0d 0d 23 69 66 64 | 65 66 09 44 45 42 55 47 |}...#ifd|ef.DEBUG|
|00001470| 0d 0d 70 72 69 6e 74 5f | 63 6c 6f 73 75 72 65 28 |..print_|closure(|
|00001480| 6e 29 0d 69 6e 74 20 6e | 3b 0d 7b 0d 20 20 72 65 |n).int n|;.{.  re|
|00001490| 67 69 73 74 65 72 20 73 | 68 6f 72 74 20 2a 69 73 |gister s|hort *is|
|000014a0| 70 3b 0d 0d 20 20 70 72 | 69 6e 74 66 28 22 5c 6e |p;..  pr|intf("\n|
|000014b0| 5c 6e 6e 20 3d 20 25 64 | 5c 6e 5c 6e 22 2c 20 6e |\nn = %d|\n\n", n|
|000014c0| 29 3b 0d 20 20 66 6f 72 | 20 28 69 73 70 20 3d 20 |);.  for| (isp = |
|000014d0| 69 74 65 6d 73 65 74 3b | 20 69 73 70 20 3c 20 69 |itemset;| isp < i|
|000014e0| 74 65 6d 73 65 74 65 6e | 64 3b 20 69 73 70 2b 2b |temseten|d; isp++|
|000014f0| 29 0d 20 20 20 20 70 72 | 69 6e 74 66 28 22 20 20 |).    pr|intf("  |
|00001500| 20 25 64 5c 6e 22 2c 20 | 2a 69 73 70 29 3b 0d 7d | %d\n", |*isp);.}|
|00001510| 0d 0d 0d 70 72 69 6e 74 | 5f 45 46 46 28 29 0d 7b |...print|_EFF().{|
|00001520| 0d 20 20 20 20 72 65 67 | 69 73 74 65 72 20 69 6e |.    reg|ister in|
|00001530| 74 20 69 2c 20 6a 2c 20 | 6b 3b 0d 20 20 20 20 72 |t i, j, |k;.    r|
|00001540| 65 67 69 73 74 65 72 20 | 75 6e 73 69 67 6e 65 64 |egister |unsigned|
|00001550| 20 2a 72 6f 77 70 3b 0d | 20 20 20 20 72 65 67 69 | *rowp;.|    regi|
|00001560| 73 74 65 72 20 75 6e 73 | 69 67 6e 65 64 20 77 6f |ster uns|igned wo|
|00001570| 72 64 3b 0d 20 20 20 20 | 72 65 67 69 73 74 65 72 |rd;.    |register|
|00001580| 20 75 6e 73 69 67 6e 65 | 64 20 6d 61 73 6b 3b 0d | unsigne|d mask;.|
|00001590| 0d 20 20 20 20 70 72 69 | 6e 74 66 28 22 5c 6e 5c |.    pri|ntf("\n\|
|000015a0| 6e 45 70 73 69 6c 6f 6e | 20 46 72 65 65 20 46 69 |nEpsilon| Free Fi|
|000015b0| 72 73 74 73 5c 6e 22 29 | 3b 0d 0d 20 20 20 20 66 |rsts\n")|;..    f|
|000015c0| 6f 72 20 28 69 20 3d 20 | 73 74 61 72 74 5f 73 79 |or (i = |start_sy|
|000015d0| 6d 62 6f 6c 3b 20 69 20 | 3c 20 6e 73 79 6d 73 3b |mbol; i |< nsyms;|
|000015e0| 20 69 2b 2b 29 0d 20 20 | 20 20 7b 0d 09 70 72 69 | i++).  |  {..pri|
|000015f0| 6e 74 66 28 22 5c 6e 25 | 73 22 2c 20 73 79 6d 62 |ntf("\n%|s", symb|
|00001600| 6f 6c 5f 6e 61 6d 65 5b | 69 5d 29 3b 0d 09 72 6f |ol_name[|i]);..ro|
|00001610| 77 70 20 3d 20 45 46 46 | 20 2b 20 28 28 69 20 2d |wp = EFF| + ((i -|
|00001620| 20 73 74 61 72 74 5f 73 | 79 6d 62 6f 6c 29 20 2a | start_s|ymbol) *|
|00001630| 20 57 4f 52 44 53 49 5a | 45 28 6e 76 61 72 73 29 | WORDSIZ|E(nvars)|
|00001640| 29 3b 0d 09 77 6f 72 64 | 20 3d 20 2a 72 6f 77 70 |);..word| = *rowp|
|00001650| 2b 2b 3b 0d 0d 09 6d 61 | 73 6b 20 3d 20 31 3b 0d |++;...ma|sk = 1;.|
|00001660| 09 66 6f 72 20 28 6a 20 | 3d 20 30 3b 20 6a 20 3c |.for (j |= 0; j <|
|00001670| 20 6e 76 61 72 73 3b 20 | 6a 2b 2b 29 0d 09 7b 0d | nvars; |j++)..{.|
|00001680| 09 20 20 20 20 69 66 20 | 28 77 6f 72 64 20 26 20 |.    if |(word & |
|00001690| 6d 61 73 6b 29 0d 09 09 | 70 72 69 6e 74 66 28 22 |mask)...|printf("|
|000016a0| 20 20 25 73 22 2c 20 73 | 79 6d 62 6f 6c 5f 6e 61 |  %s", s|ymbol_na|
|000016b0| 6d 65 5b 73 74 61 72 74 | 5f 73 79 6d 62 6f 6c 20 |me[start|_symbol |
|000016c0| 2b 20 6a 5d 29 3b 0d 0d | 09 20 20 20 20 6d 61 73 |+ j]);..|.    mas|
|000016d0| 6b 20 3c 3c 3d 20 31 3b | 0d 09 20 20 20 20 69 66 |k <<= 1;|..    if|
|000016e0| 20 28 6d 61 73 6b 20 3d | 3d 20 30 29 0d 09 20 20 | (mask =|= 0)..  |
|000016f0| 20 20 7b 0d 09 09 77 6f | 72 64 20 3d 20 2a 72 6f |  {...wo|rd = *ro|
|00001700| 77 70 2b 2b 3b 0d 09 09 | 6d 61 73 6b 20 3d 20 31 |wp++;...|mask = 1|
|00001710| 3b 0d 09 20 20 20 20 7d | 0d 09 7d 0d 20 20 20 20 |;..    }|..}.    |
|00001720| 7d 0d 7d 0d 0d 0d 70 72 | 69 6e 74 5f 66 69 72 73 |}.}...pr|int_firs|
|00001730| 74 5f 64 65 72 69 76 65 | 73 28 29 0d 7b 0d 20 20 |t_derive|s().{.  |
|00001740| 72 65 67 69 73 74 65 72 | 20 69 6e 74 20 69 3b 0d |register| int i;.|
|00001750| 20 20 72 65 67 69 73 74 | 65 72 20 69 6e 74 20 6a |  regist|er int j|
|00001760| 3b 0d 20 20 72 65 67 69 | 73 74 65 72 20 75 6e 73 |;.  regi|ster uns|
|00001770| 69 67 6e 65 64 20 2a 72 | 70 3b 0d 20 20 72 65 67 |igned *r|p;.  reg|
|00001780| 69 73 74 65 72 20 75 6e | 73 69 67 6e 65 64 20 63 |ister un|signed c|
|00001790| 77 6f 72 64 3b 0d 20 20 | 72 65 67 69 73 74 65 72 |word;.  |register|
|000017a0| 20 75 6e 73 69 67 6e 65 | 64 20 6d 61 73 6b 3b 0d | unsigne|d mask;.|
|000017b0| 0d 20 20 70 72 69 6e 74 | 66 28 22 5c 6e 5c 6e 5c |.  print|f("\n\n\|
|000017c0| 6e 46 69 72 73 74 20 44 | 65 72 69 76 65 73 5c 6e |nFirst D|erives\n|
|000017d0| 22 29 3b 0d 0d 20 20 66 | 6f 72 20 28 69 20 3d 20 |");..  f|or (i = |
|000017e0| 73 74 61 72 74 5f 73 79 | 6d 62 6f 6c 3b 20 69 20 |start_sy|mbol; i |
|000017f0| 3c 20 6e 73 79 6d 73 3b | 20 69 2b 2b 29 0d 20 20 |< nsyms;| i++).  |
|00001800| 20 20 7b 0d 20 20 20 20 | 20 20 70 72 69 6e 74 66 |  {.    |  printf|
|00001810| 28 22 5c 6e 25 73 20 64 | 65 72 69 76 65 73 5c 6e |("\n%s d|erives\n|
|00001820| 22 2c 20 73 79 6d 62 6f | 6c 5f 6e 61 6d 65 5b 69 |", symbo|l_name[i|
|00001830| 5d 29 3b 0d 20 20 20 20 | 20 20 72 70 20 3d 20 66 |]);.    |  rp = f|
|00001840| 69 72 73 74 5f 64 65 72 | 69 76 65 73 20 2b 20 69 |irst_der|ives + i|
|00001850| 20 2a 20 57 4f 52 44 53 | 49 5a 45 28 6e 72 75 6c | * WORDS|IZE(nrul|
|00001860| 65 73 29 3b 0d 20 20 20 | 20 20 20 63 77 6f 72 64 |es);.   |   cword|
|00001870| 20 3d 20 2a 72 70 2b 2b | 3b 0d 20 20 20 20 20 20 | = *rp++|;.      |
|00001880| 6d 61 73 6b 20 3d 20 31 | 3b 0d 20 20 20 20 20 20 |mask = 1|;.      |
|00001890| 66 6f 72 20 28 6a 20 3d | 20 30 3b 20 6a 20 3c 3d |for (j =| 0; j <=|
|000018a0| 20 6e 72 75 6c 65 73 3b | 20 6a 2b 2b 29 0d 20 20 | nrules;| j++).  |
|000018b0| 20 20 20 20 20 20 7b 0d | 09 20 20 69 66 20 28 63 |      {.|.  if (c|
|000018c0| 77 6f 72 64 20 26 20 6d | 61 73 6b 29 0d 09 20 20 |word & m|ask)..  |
|000018d0| 20 20 70 72 69 6e 74 66 | 28 22 20 20 20 25 64 5c |  printf|("   %d\|
|000018e0| 6e 22 2c 20 6a 29 3b 0d | 0d 09 20 20 6d 61 73 6b |n", j);.|..  mask|
|000018f0| 20 3c 3c 3d 20 31 3b 0d | 09 20 20 69 66 20 28 6d | <<= 1;.|.  if (m|
|00001900| 61 73 6b 20 3d 3d 20 30 | 29 0d 09 20 20 20 20 7b |ask == 0|)..    {|
|00001910| 0d 09 20 20 20 20 20 20 | 63 77 6f 72 64 20 3d 20 |..      |cword = |
|00001920| 2a 72 70 2b 2b 3b 0d 09 | 20 20 20 20 20 20 6d 61 |*rp++;..|      ma|
|00001930| 73 6b 20 3d 20 31 3b 0d | 09 20 20 20 20 7d 0d 09 |sk = 1;.|.    }..|
|00001940| 7d 0d 20 20 20 20 7d 0d | 0d 20 20 66 66 6c 75 73 |}.    }.|.  fflus|
|00001950| 68 28 73 74 64 6f 75 74 | 29 3b 0d 7d 0d 0d 23 65 |h(stdout|);.}..#e|
|00001960| 6e 64 69 66 0d 00 00 00 | 00 00 00 00 00 00 00 00 |ndif....|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00001990| 6d 74 61 62 2e 68 0d 09 | 20 43 20 7b 43 46 4c 41 |mtab.h..| C {CFLA|
|000019a0| 47 53 7d 20 20 65 72 72 | 6f 72 2e 63 0d 66 69 6c |GS}  err|or.c.fil|
|000019b0| 09 63 6c 6f 73 75 72 65 | 2e 63 02 00 00 00 50 61 |.closure|.c....Pa|
|000019c0| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 01 |rtSITx..|........|
|000019d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 a9 80 16 18 00 00 | 00 00 00 00 01 ac 2e 63 |........|.......c|
|00001a00| 20 64 65 66 73 2e 68 20 | 64 65 70 2e 68 20 6e 65 | defs.h |dep.h ne|
|00001a10| 77 2e 68 20 67 72 61 6d | 2e 68 20 73 74 61 74 65 |w.h gram|.h state|
|00001a20| 2e 68 0d 09 20 43 20 7b | 43 46 4c 41 47 53 7d 20 |.h.. C {|CFLAGS} |
|00001a30| 20 67 65 6e 73 74 61 74 | 65 73 2e 63 0d 67 72 61 | genstat|es.c.gra|
|00001a40| 6d 2e 63 2e 6f 20 c4 20 | 67 72 61 6d 2e 63 0d 09 |m.c.o . |gram.c..|
|00001a50| 20 43 20 7b 43 46 4c 41 | 47 53 7d 20 20 67 72 61 | C {CFLA|GS}  gra|
|00001a60| 6d 2e 63 0d 6c 61 6c 72 | 2e 63 2e 6f 20 c4 20 6c |m.c.lalr|.c.o . l|
|00001a70| 61 6c 72 2e 63 20 64 65 | 66 73 2e 68 20 64 65 70 |alr.c de|fs.h dep|
|00001a80| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001aa0| 00 00 00 00 00 00 00 06 | 00 04 00 50 00 20 01 dd |........|...P. ..|
|00001ab0| 02 3d 00 50 00 20 01 dd | 02 3d a5 1f c1 71 00 00 |.=.P. ..|.=...q..|
|00001ac0| 00 00 00 00 00 00 00 00 | 06 d1 01 00 00 00 00 1e |........|........|
|00001ad0| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|00001ae0| 00 00 06 d1 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 51 |.....n..|.n...>.Q|
|00001b00| 36 ac 08 d2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |6.......|.>..MPSR|
|00001b10| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00001b20| 03 f0 ff ff 00 00 00 4c | 00 57 47 78 00 00 00 00 |.......L|.WGx....|
|00001b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+